home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2008 January / Cybermycha 1_2008.iso / Data.cab / _C0C25A57BD0C4AFEA7A13F4416179708 < prev    next >
Encoding:
Text File  |  2004-03-17  |  558 b   |  33 lines

  1. regc(0, "TFACTOR") 
  2.  
  3. pshader("
  4.  
  5. ps_1_1
  6.  
  7.     def    c1, 0, 0, 0.25, 0.75    ;noise scale
  8.     def    c2, 0.5, 0.5, 0.5, 1    ;mono params
  9.     def    c3, 0.62, 0.5, 0.3, 0.2    ;sephia params
  10.     
  11.  
  12.     tex    t0    ;image
  13.     tex    t1    ;frame
  14.     tex    t2    ;scratches
  15.     tex    t3    ;grain
  16.  
  17.     dp3_sat    r0.rgb, t0, c2                ;make mono
  18.     +mul    r0.a, t1.b, c0.a        ;blink * frame
  19.  
  20.     lrp     r0.rgb, t3.a, r0, c3            ;grain
  21.     +mul    t1.a, t3.b, r0.a
  22.  
  23.     mul     r1, c3, c3.a            ;temporary ambient
  24.  
  25.     mad_sat    r0, r0, c3, r1            ;color to sephia, add ambient
  26.  
  27.     mul        r0, r0, t1.a
  28.  
  29.     lrp     r0, t2.a, t2, r0            ;scratch    
  30.  
  31. ")
  32.  
  33.